home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / List2Var.xdme < prev    next >
Text File  |  1995-08-01  |  345b  |  21 lines
  1. /* $VER: List2Var.xdme 1.0 (01 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3.  
  4. PARSE ARG list x
  5.  
  6. OPTIONS RESULTS
  7. line = ""
  8. i = 0
  9. DO FOREVER
  10.     v = "$(" || list || "/#" || i || "/*Name*)"
  11.     com = "rxresult" v
  12.     com
  13.     r = result
  14.     IF r = v THEN LEAVE
  15.     line = line r
  16.     i = i + 1
  17. END
  18.  
  19. com = "setenv" x "(" || strip(line) || ")"
  20. com
  21.